Function ColLetter(ȣ As Integer) As String

    Dim ӽüּ As String
    
    ӽüּ = Cells(1, ȣ).Address(False, False)
    ColLetter = Left(ӽüּ, Len(ӽüּ) - 1)

End Function